home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / misc / avmNfax1_33.lha / AVMSuite / rexx / play.avm < prev    next >
Text File  |  1994-06-24  |  1KB  |  45 lines
  1. /* */
  2. parse upper arg server device type file
  3. /* say in here */
  4.  
  5. if type = "MULTI" then numfiles = words(file) / 2
  6. else do
  7.   file = file type
  8.   numfiles = 1
  9. end
  10.  
  11. filesandtypes = file
  12.  
  13. call setclip("AVMAbortMulti", "NO")
  14.  
  15. do i = 1 to numfiles
  16.   file = word(filesandtypes, 1 + (i - 1) * 2)
  17.   type = word(filesandtypes, 2 + (i - 1) * 2)
  18.  
  19.   call setclip("AVMPlayMultiType", type)
  20.   if type = 'VOICE' then do
  21.     if device = 'TELEPHONELINE' | device = 'INTERNALSPEAKER' | device = 'LOCALHANDSET' then
  22.         address rexx 'useBracket' server 'playzyxel' server device file
  23.     else if device = 'AMIGA' then
  24.         address rexx 'playamiga' file
  25.         else if device = 'AMIGADIRECT' then
  26.                 address rexx 'playamigadirect' file
  27.         else if device = 'IFF' then
  28.         address rexx 'saveiff' file 'ram:save.iff'
  29.   end; else if type = 'FAX' then do
  30.     faxprogram = getclip('AVMFaxProgram')
  31.     if upper(faxprogram) = 'GPFAX' then
  32.     address rexx_gpfax 'viewfax' file
  33.     else if upper(faxprogram) = 'TRAPFAX' then
  34.         address command 'trapfax:tfaxview' file
  35.     else if upper(faxprogram) = 'EFAX' then
  36.         address rexx 'efaxview' file
  37.   end
  38.  
  39.   if getclip("AVMAbortMulti") = "YES" then exit
  40. end
  41.  
  42. exit
  43.  
  44.  
  45.